home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / game / patch / WHDIGamesS-T.lzh / SpyWhoLovedMe.lha / SpyWhoLovedMeHD / Install next >
Text File  |  2000-08-13  |  4KB  |  211 lines
  1. ;****************************
  2.  
  3. (set #readme-file "README")    ;name of the readme file
  4.  
  5. (procedure P_MakeImages
  6.  
  7.   ;the following lines must be copied and adjusted for multiple disk images
  8.  
  9.   (set #CI_disknum 1)
  10.   (set #CI_diskname ("%s Disk %ld" @app-name #CI_disknum))
  11.   (set #CI_disklen 901120)
  12.   (set #CI_skiptrk 1)
  13.   (P_CreateImage)
  14. )
  15.  
  16. ;****************************
  17. ;----------------------------
  18. ; checks if given program is installed, if not abort install
  19. ; #program - to check
  20.  
  21. (procedure P_ChkRun
  22.   (if
  23.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  24.     ("")
  25.     (abort 
  26.       (cat
  27.     "You must install \"" #program "\" first!\n"
  28.     "It must be accessible via the path.\n"
  29.     "You can find it in the WHDLoad package."
  30.       )
  31.     )
  32.   )
  33. )
  34.  
  35. ;----------------------------
  36. ; Create Image using DIC
  37. ; #dest        - path to save image in
  38. ; #CI_disknum  - number of the disk image to create
  39. ; #CI_diskname - label of the disk
  40. ; #CI_disklen  - length of disk image to create
  41. ; #CI_skiptrk  - track to skip, -1 means no skip
  42. ; #CI_drive    - drive to create image from
  43.  
  44. (procedure P_CreateImage
  45.   (message
  46.     (cat
  47.     "\nInsert \"" #CI_diskname "\" into drive " #CI_drive " !\n\n"
  48.     "(make sure it's the right disk because it will not be checked)"
  49.     )
  50.   )
  51.   (if
  52.     (>= #CI_skiptrk 0)
  53.     (set #option (cat " SKIPTRACK=" #CI_skiptrk))
  54.     (set #option "")
  55.   )
  56.   (if
  57.     (= 0
  58.       (run 
  59.         (cat
  60.           "cd \"" #dest "\"\n"
  61.           "DIC " #CI_drive " FD=" #CI_disknum " LD=" #CI_disknum " SIZE="
  62.           #CI_disklen #option " PEDANTIC >CON:///1000//CLOSE"
  63.         )
  64.       )
  65.     )
  66.     (run ("FileNote %s Quiet" #CI_diskname))
  67.     (abort "\"DIC\" has failed to create a diskimage")
  68.   )
  69. )
  70.  
  71. ;****************************
  72.  
  73. (if
  74.   (exists #readme-file)
  75.   (if
  76.     (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  77.     ("")
  78.     (run ("SYS:Utilities/More %s" #readme-file))
  79.   )
  80. )
  81.  
  82. (set #program "WHDLoad")
  83. (P_ChkRun)
  84.  
  85. (set #program "DIC")
  86. (P_ChkRun)
  87.  
  88. ; in expert mode ask for source drive
  89. (if
  90.   (= @user-level 2)
  91.   (
  92.     (set #CI_drive
  93.       (askchoice
  94.     (prompt "Select source drive for diskimages")
  95.     (default 0)
  96.     (choices "DF0:" "DF1:" "RAD:" "Enter Device")
  97.     (help @askchoice-help)
  98.       )
  99.     )
  100.     (select #CI_drive
  101.       (set #CI_drive "DF0:")
  102.       (set #CI_drive "DF1:")
  103.       (set #CI_drive "RAD:")
  104.       (set #CI_drive
  105.         (askstring
  106.           (prompt "Select source drive for diskimages")
  107.           (default "DF0:")
  108.           (help @askstring-help)
  109.         )
  110.       )
  111.     )
  112.   )
  113.   (set #CI_drive "DF0:")
  114. )
  115.  
  116. (set @default-dest
  117.   (askdir
  118.     (prompt 
  119.       (cat
  120.     "Where should \"" @app-name "\" installed ?\n"
  121.     "A drawer \"" @app-name "\" will be automatically created."
  122.       )
  123.     )
  124.     (help @askdir-help)
  125.     (default @default-dest)
  126.     (disk)
  127.   )
  128. )
  129. (set #dest (tackon @default-dest @app-name))
  130. (if
  131.   (exists #dest)
  132.   (
  133.     (set #choice
  134.       (askbool
  135.         (prompt
  136.           (cat
  137.             "\nDirectory \"" #dest "\" already exists.\n"
  138.             "Should it be deleted?"
  139.           )
  140.         )
  141.         (default 1)
  142.         (choices "Delete" "Skip")
  143.         (help @askbool-help)
  144.       )
  145.     )
  146.     (if
  147.       (= #choice 1)
  148.       (run ("Delete \"%s\" \"%s.info\" All" #dest #dest))
  149.     )
  150.   )
  151. )
  152. (makedir #dest
  153.   (help @makedir-help)
  154.   (infos)
  155. )
  156.  
  157. ;----------------------------
  158.  
  159. (copyfiles
  160.   (help @copyfiles-help)
  161.   (source ("%s.Slave" @app-name))
  162.   (dest #dest)
  163. )
  164. (if
  165.   (exists ("%s.newicon" @app-name))
  166.   (set #icon
  167.     (askchoice
  168.       (prompt "\nWhich icon would you like to install?\n")
  169.       (default 0)
  170.       (choices "Normal" "RomIcon" "NewIcon" "GlowIcon")
  171.       (help @askchoice-help)
  172.     )
  173.   )
  174.   (set #icon 0)
  175. )
  176. (select #icon
  177.   (set #icon ("%s.inf" @app-name))
  178.   (set #icon ("%s.romicon" @app-name))
  179.   (set #icon ("%s.newicon" @app-name))
  180.   (set #icon ("%s.glowicon" @app-name))
  181. )
  182. (copyfiles
  183.   (help @copyfiles-help)
  184.   (source #icon)
  185.   (newname ("%s.info" @app-name))
  186.   (dest #dest)
  187. )
  188. (if
  189.   (exists #readme-file)
  190.   (copyfiles
  191.     (help @copyfiles-help)
  192.     (source #readme-file)
  193.     (dest #dest)
  194.   )
  195. )
  196. (if
  197.   (exists ("%s.info" #readme-file))
  198.   (copyfiles
  199.     (help @copyfiles-help)
  200.     (source ("%s.info" #readme-file))
  201.     (dest #dest)
  202.   )
  203. )
  204.  
  205. (P_MakeImages)
  206.  
  207. ;----------------------------
  208.  
  209. (exit)
  210.  
  211.